Shareware Grab Bag/Shareware Grab Bag.iso/007/boostrs.arc/PUTSTR.PAS

Pascal/Delphi Source File | 1980-01-01 | 3KB | 84 lines

{ ---------------------------------------------------
  PUTSTR  - Write a string directly to display memory
  --------------------------------------------------- }

Procedure PutStr ( HV : Char;
                    S : AnyString;
                    X : ColumnType;
                    Y : RowType;
                  Att : Byte );

begin
   inline ( $1E/
            $BB/$49/$04/         { mov   bx,449h        video byte offset   }
            $31/$C0/             { xor   ax,ax          ax = 0              }
            $8E/$D8/             { mov   ds,ax          video byte seg      }
            $8A/$07/             { mov   al,[bx]        get byte            }
            $3C/$07/             { cmp   al,7           mono?               }
            $75/$06/             { jne   graphx         no                  }
            $BA/$00/$B0/         { mov   dx,0B000h      regen for mono      }
            $EB/$0C/$90/         { jmp   start          go to parm analysis }
            $BA/$DA/$03/        { mov  dx,3DAh  IBM CGA   }
            $EC/                { in   al,dx    will snow }
            $24/$08/            { and  al,1000b w/o this  }
            $74/$FB/            { jz   vtrace   check     }
                         { graphx:                                          }
            $BA/$00/$B8/         { mov   dx,0B800h      regen for graphics  }
            $8E/$C2/     { start:  mov   es,dx                              }
            $8B/$5E/$08/
            $09/$DB/
            $74/$0C/
            $4B/
            $8B/$46/$06/
            $48/
            $8A/$F0/
            $8A/$D3/
            $EB/$05/$90/
            $B4/$03/
            $CD/$10/
            $8A/$DE/
            $30/$FF/
            $8B/$C3/
            $B1/$07/
            $D3/$E0/
            $B1/$05/
            $D3/$E3/
            $01/$C3/
            $8A/$C2/
            $30/$E4/
            $D1/$E0/
            $01/$C3/
            $8B/$FB/
            $8A/$4E/$0A/
            $30/$ED/
            $8D/$76/$0B/
            $16/
            $1F/
            $8A/$66/$04/
            $8B/$96/$0A/$01/
            $80/$FA/$76/
            $74/$0A/
            $80/$FA/$56/
            $74/$05/
            $31/$D2/
            $EB/$04/$90/
            $BA/$9E/$00/
            $FC/
            $8A/$04/
            $AB/
            $01/$D7/
            $46/
            $E2/$F8/
            $09/$D2/
            $74/$04/
            $81/$EF/$9E/$00/
            $8B/$C7/
            $31/$D2/
            $BB/$A0/$00/
            $F7/$F3/
            $D0/$EA/
            $8A/$F0/
            $B4/$02/
            $CD/$10/
            $1F/$5D);
end;